66问答网
所有问题
当前搜索:
vba workbook
EXCEL大神知道怎么用
VBA
代码吗?
答:
Sub test()Dim arr As Variant Dim i, n As Integer Dim wk As
Workbook
Dim sh As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False On Error Resume Next For Each sh In Worksheets If sh.Name = "原始数据" Then GoTo line1 End If n = n + 1 Next She...
各位大神解释下这段
vba
代码为什么报错?
答:
Sheet1 是表这个对象的名称,同时也是指对象本身 销售表-1 是表的Name,是对象的参数之一 1 是表的位置编号(按Sheet排列顺序),所以其实还可以写作 Worksheets(1),也是对象的参数 以上三者是有区别的。名称也可以修改(选中以后在左下角的属性窗口里改),它可以直接用,但限于本
工作簿
,...
EXCEL
VBA
求写判断当前SHEET的代码
答:
BOOK2的thisworkbook代码:Private Sub
Workbook
_Open()if avcivesheet.name="Sheet7" then set wb=
workbooks
.open(thisworkbook.path & "\book1.xls",,false)with wb .worksheets("Sheet1").setlect run "book1.xls!a"end with end if End Sub ...
vba
如何新建一个excel并且从另一个excel中导入数据到这个新建的excel中...
答:
1.打开表格 2.按alt+F11 3.点击插入 4.点击模块 5.粘贴如下代码 '自定义公式-按ALT+11-插入-模块(提取)Sub 提取()If MsgBox("为避免使用时表格被占用,您将提取收货人为 陈杭荣 所在行至 陈杭荣流水账 后删除该行,是否继续", vbOKCancel) = vbOK ThenUserForm1.Show 0DoEvents 当前...
vba
/excel Set EEP_
WorkBook
=
Workbooks
.Open(EEP_Path),如何让它打 ...
答:
用GetObject就好了,默认就是隐藏的。Set EEP_
WorkBook
= GetObject(EEP_Path)
求助EXCEL使用
VBA
批量打开一系列表格文件并复制里面的数据到另一个表 ...
答:
Sub Copy_Data()Dim wb As
Workbook
, rng As Range, sht As WorksheetDim sht_Name, theDatesht_Name = "Sheet1" '假设所有报表文件中的数据都在 Sheet1Set sht = ActiveSheet '保存当前工作表对象fn = Dir(ThisWorkbook.Path & "\报表-*.xls", vbReadOnly) '打开第一个报表文件Do While ...
EXCEL
vba
怎么身份验证才能进入,例如:打开EXCEL文件,
答:
进入
VBA
,双击thisworkbook对象,复制以下代码:Private Sub
Workbook
_Open()Dim Sht As Worksheet, PW As String '利用循环语句将除了Sheet1外的所有工作表隐藏,这样防止有人通过禁用VBA来绕过验证程序而看到文件,Sheet1为一个空的工作表 For Each Sht In ThisWorkbook.Worksheets If Sht.Name <> "Sheet...
excel
VBA
打开一个
工作簿
,然后赋值,再打开另一个,这个里面有公式等于...
答:
改成这样:Sub try() Application.DisplayAlerts = False Dim mypath As String, svalue '定义变量 mypath = "C:\Users\Administrator\Desktop\1.xls" svalue = "C:\Users\Administrator\Desktop\2.xlsm" dim wkbk as object,wksht as object set wkbk=getobject(mypath) ...
Excel 如何用
VBA
最小化指定的工作薄
答:
按下边 子程序 试试!Sub 最小化
工作簿
()Dim BOOK As Workbook B = InputBox("写入工作簿名称")Set BOOK =
Workbooks
(B)BOOK.Activate ActiveWindow.WindowState = xlMinimized Set BOOK = Nothing End Sub
...时错误1004代码..方法saveas作用于对象_
workbook
时失败(2010版excel...
答:
Sub savetofile()Application.ScreenUpdating = False on error resume next '忽略错误,继续执行 Dim folder As String folder = ThisWorkbook.Path & "\班级成绩表"If Len(Dir(folder, vbDirectory)) = 0 Then MkDir folder Dim sht As Worksheet For Each sht In thisworkbook.Worksheets if sht....
首页
<上一页
4
5
6
7
9
10
8
11
12
13
下一页
尾页
其他人还搜